home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
TPUG Xtras
/
Unreleased
/
(c)aaa.d64
/
autoload
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-02-07
|
6KB
|
109 lines
0 GOSUB 9000:GOTO 12
1 GOSUB 9000
2 OPEN 1,8,15
3 OPEN 3,8,0,"$0:*=P"
4 SYS 49152
5 CLOSE 3
6 PRINT#1,"S0:BOOT.DATA"
7 OPEN 3,8,3,"0:BOOT.DATA,S,W"
8 SYS 49155
9 CLOSE 3
10 CLOSE 1
11 END
12 OPEN 1,8,15,"I0"
13 OPEN 3,8,3,"BOOT.DATA"
14 SYS 49158
15 CLOSE 3
16 SYS 49161
17 CLOSE 1
18 END
8997 :
8998 END
8999 :
9000 FOR I=319 TO 384
9001 READ A: POKE I,A: NEXT
9002 POKE 251, 0
9003 POKE 252, 192
9004 FOR I=0 TO 66: READ A$
9005 SYS 319,A$: NEXT: RETURN
9006 :
9007 DATA 32, 253, 174, 32, 158, 173
9008 DATA 32, 163, 182, 133, 36, 162
9009 DATA 0, 160, 255, 32, 102, 1
9010 DATA 10, 10, 10, 10, 133, 37
9011 DATA 32, 102, 1, 5, 37, 129
9012 DATA 251, 230, 251, 208, 236, 230
9013 DATA 252, 208, 232, 200, 196, 36
9014 DATA 240, 16, 177, 34, 201, 81
9015 DATA 176, 13, 201, 65, 144, 9
9016 DATA 233, 1, 41, 15, 16, 2
9017 DATA 104, 104, 96, 76, 8, 175
9018 :
9020 DATAEMLIMCEMAHMDEMIDMFEMIMMFAAAAAAAAAAAAAAAAAAAAAAAAAAAABNJNBBJBDPANIJLKMF
9021 DATAMCMFMOMFOOMFAOMGBGMHAGMEMEEJFDELCAEOEBENEFDKCAEBFFFEEPEMEPEBEECAEEEFFG
9022 DATAEFEMEPFAAAEBEECACACACACACACACAAAEFFEFFFCEOCACPMAAAEAAAABELMAIKMAKCMAKH
9023 DATAMAKLMALEMALNMANJMAPKMAAKMBBCMABEMABOMBDGMBGOMBAPMCFCMCHHMCJJMCKCMCBBFC
9024 DATAEFEBEEEJEOEHCAEEEJFCEFEDFEEPFCFJCOCOCOANANAABCCAJCJNAACAJNJNAAEJEOEDEM
9025 DATAFFEEEFCAAACACIFJCPEOCJDPCAAAFFFDEFCAFCEFEMEPEDEBFEEJEOEHCAEMEPEBEECACI
9026 DATAFJCPEOCJDPCAAAFDEFFBCOCAEEEPEDCOCAEGEJEMEFCAEBFGEBEJEMEBECEMEFCACIFJCP
9027 DATAEOCJDPCAAAFDEFFBCOCAEGEJEMEFEOEBENEFDKCAAAEEEFFDEDFCEJECEFCAFAFCEPEHFC
9028 DATAEBENDKCAANAAEJFDCAFEEIEJFDCAEDEPFCFCEFEDFECACIFJCPEOCJDPCAAAJDBCFEFAFF
9029 DATAEHCAEEEJFDELCAEBFFFEEPEMEPEBEEEFFCBBBBBBBBANFAEMEFEBFDEFCAFHEBEJFECOCA
9030 DATAFCEFEBEEEJEOEHCAEEEBFEEBCOCOCOAAJDFFFDEFCAEDFFFCFDEPFCCAEDEPEOFEFCEPEM
9031 DATAFDCAFEEPCAFDEFEMEFEDFECAFAFCEPEHFCEBENCMANBCFCEFFEFFFCEOJCCAFEEPCAEMEP
9032 DATAEBEECMCABCEGDCJCCAFEEPCAEFFIEJFECAFEEPCAECEBFDEJEDCOANANEJEGCABCCKJCCA
9033 DATAFAFCEFEDEFEEEFFDCAEGEJEMEFEOEBENEFCMCAFJEPFFCAEDEBEOCAFCEFEBEECAEBANEE
9034 DATAEPEDFFENEFEOFEEBFEEJEPEOCAEGEJEMEFCAECFJCAFAFCEFFDFDEJEOEHCABCDPJCCOAN
9035 DATAANAABDBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBNBNBNBNBNBNBNBN
9036 DATABNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBCENEPFCEFJCDNDNDOAAJD
9037 DATAFFFDEFCAFDEIEJEGFECAFEEPCAFAEBFFFDEFCMCABCFPJCCAFEEPCAEBECEPFCFECOBBAN
9038 DATAAAANFAFCEFFDFDCAEBEOFJCAELEFFJCAFEEPCAFCEFFEFFFCEOCAFEEPCAENEFEOFFCOAA
9039 DATAJDBBBBEMEPEBEECCAAANBBBBBBBBFAEPELEFCADBDJDICMDADKCAFCFFEOBDAAKJAAINBA
9040 DATAMAKJAECAGNMECAJDMEIKNADLKJKAKAEAINAOMAIMAPMAKJDKKAMAIFCCIECDCAKPMEOAAA
9041 DATANACCKKPABPCAHGMFCAKPMEOAAANABFKKPABCOOBAMAJIGNAOMAINAOMAJAADOOAPMAEMOE
9042 DATAMCCAMMPPGALKIOBGMAKCADCAMJPPKJAACAGNMECAPAMECAPAMECAMMPPKJAACAGNMECAPA
9043 DATAMECAPAMEKJKAKAEAINAOMAIMAPMAKJAHCAGNMEKJIACAGNMEKJAICAGNMEKJABKICAALME
9044 DATACAPAMEKNAAEAMJEONAADEMPIMDMJFJNANKKJEOCMBBMADABMKJAJCAGNMEKJANKAABCAAL
9045 DATAMECAPAMEKNBCMAMJEOPAAJMJFJNAOGKJFCINBCMAKJAKCAGNMEKJAOKAABCAALMECAPAME
9046 DATAKNBEMAMJEOPABNMJFJNAOGKJCKINBEMAKJALCAGNMEKJADKABACAALMECAPAMEJIPAOONA
9047 DATAAKKJCAINBEMAKJAAINELMAKJAMCAGNMEKJABKAJPCAALMEIEAECAPAMECAPAMECADHMFKJ
9048 DATAAPCAGNMEKJACKAABCAALMECAPAMEKNAAABMJEOPABHMJFJNAODKCADCAMJPPCADHMFCAMM
9049 DATAPPCAFNMFMOBAMAPAAGCAPAMEEMDDMDKOBGMAJKGAIEACAKKKLNFMMALMFNMAIFCEIECFKA
9050 DATAAAKJAFCAGNMEIEAECAOEPPMJIJNAADEMAGMEKEAEMJANPADBMJBEPACBKKCJHPMJCAJAOD
9051 DATAIKMEACPANOJBCECANCPPMJCCNAAICANCPPKJBECANCPPMIEMBLMEJIPAMGKJAGCAGNMEII
9052 DATAEMBLMEKJCACANCPPKJAAJBCEGAIEAEAKLAANKKLNFMMALMFNMAIFCCIECDNAADCAHGMFKA
9053 DATAAALBCCPAAGCANCPPMINAPGIEAFKEAEGACAJIMEIFADKCADIEAECAMGPPCAOEPPIFACKFJA
9054 DATAINANMAKKKEAEKFACGACAJDMEIKNADCCAJDMEIKNACMKAAACAJIMEPACFOAAANACBMJCCNA
9055 DATAPDCAJIMEOAAANABGMJCCPAAFJBCCMINAPAKJAAJBCCCAJIMEPAAHOAAAPAPHKJAACMKJAB
9056 DATAKOANMAGAKJANCANCPPKFBDBAAFKJAKCANCPPGAKCABCAMGPPKAAAIEAECAOEPPKEAEJJAA
9057 DATAABMIMAEAPAAEKFJAPAONKJAAJJAAABCAMMPPKNAAABMJDCJAANMJDHNAAHKNABABMJDDPA
9058 DATAACDICEBIGAKJAOCAGNMEKJIACAGNMECAPAMEKJANCAGNMEKJADCAGNMECAPAMEKJABCAGN
9059 DATAMECAPAMECAPAMEGACAHGMFKAAALBCCPAADMINAPJJIDIGFCCINAOMAJAADOOAPMAGAEIKN
9060 DATAAOMAIFCCKNAPMAIFCDGIGAKJBACAGNMECAKLMHGALKIOBGMAKJABINBIMACAALMICAIBMI
9061 DATACAOEPPKCAGNNBKMAPAAFMKBAPIDAPBIKAKKKLNCBMAIFCCLNCCMAIFCDGMCCAACANMMIOO
9062 DATABHMANAAGCANMMIMOBHMACAGIMHEMJIMFCANMMIKJACIFACKNBHMAMNBJMANAAEKJABIFAC
9063 DATAOOBHMACAGIMHMGACNAOKEMJIMFCANMMIKJACIFACKNBHMAMNBIMANAAEKJABIFACMOBHMA
9064 DATACAGIMHMGACNAOKEMJIMFCAHGMFKAAALBCCMJCKPAADEMJIMFKJBDCAGNMECAFNMFCAHGMF
9065 DATAOGCCNAACOGCDKAAALBCCPAADMINAPJJIKGCCKECDCALNPPKOAMMAKJADKICALKPPCAMAPP
9066 DATACAPPMEJAAIKJACCAGNMEEMONMGKAAAIEACKJCHIFADKNINACNAPLCAMMPPCAOEPPMJFPPA
9067 DATAHHKCADCAMGPPKEACIEACCAOEPPKEACJJAAEAKGJAPAAGCAALMHEMOFMGMJANNAAGCAALMH
9068 DATAEMFHMGMJCANAACIEADMIIEACMACHNANFKEADMACHNABHKJAAIFACCAAMMHKJANCANCPPCA
9069 DATAOEPPMJCAPAPJKEACPALNKEADCAAMMHKJANCANCPPKEADMIMEACPAIJKCAALJAAEAJNAAEA
9070 DATAOIMIMEACNAPEJIBIOFADIFACEMFLMGCAMMPPKJADCAMDPPKJBECAGNMECAOEPPPAPLKNBH
9071 DATAMAEIKNBIMAINBHMACAALMIGIINBHMAEMJIMFMIKJAAJJAAEAKJABEMGNMEOOAOMANAADOO
9072 DATAAPMAKJBFCAGNMEKJIACAGNMEKJCCCANCPPKJCMCANCPPKNAMMAAJDACANCPPCAFNMFCAHG
9073 DATAMFKAAALBCCMJFCPAAOKJCMCANCPPKJDBCANCPPKAABNAAHKJBGCAGNMEKAAFIEMGKJANJJ
9074 DATAHFACIINAPKGAKNBHMAMNBIMALACEMJAANABMKNBJMAMNBAMAJAAEINBHMAGAKJABBIGJBK
9075 DATAMNBJMALAPIDIOJBKINBIMACAANMIGAKNBJMAMNBHMALAAOMNBAMAPAADCAALMIKNBIMAIN
9076 DATABHMAGAKCADCAMGPPKFLKINAMMAKJAAINBAMAKJDKKAMACAOKMHCAOEPPKJKAKAEAINAOMA
9077 DATAIMAPMAKCADIGAECAPBMHCAFNMFMGAENAPGCAOEPPOOBAMAKFJAPAOICAMMPPGAIFCCIECD
9078 DATAEMPEMHCAHGMFKAAAIEAFCAOEPPKEAFMJANPAAFJBCCMINAPAKJAAJBCCGABICEDIAIKJBB
9079 DATACAGNMEKNBIMAINBHMABIGJBJINBJMAMNBAMAJAAGKNBAMAINBJMACAGHMIKJIACAGNMEKN
9080 DATABHMAMNBJMAPAAFOOBHMANAOLKNBJMAMNBAMALAAFKJBCCAGNMEKNBJMACILAADKNBIMAIN
9081 DATABHMACAGHMIGACAFNMFCAFNMFCAFNMFGAKJKAKAEAINAOMAIMAPMAKOBHMAMKPAAGCAFNMI
9082 DATAEMHEMICALAMIGACAGHMIKJBDCANCPPKCBEKJBBCANCPPMKNAPKCAFNMFCAFNMFKJIACAGN
9083 DATAMEKEAFKJCAMAJPPAAGCANCPPMINAPGCANJMIGAKJBDCANCPPKJBBKCAGCANCPPMKNAPKDI
9084 DATAKNBHMAONBIMAPABAIFAEKJBNKCBECANCPPMKNAPKMGAENAPEGAKJBCCMKJJCCANCPPCAGH
9085 DATAMIKJBNCANCPPOOAOMANAADOOAPMAKJIACAGNMEKNAOMANAADMOAPMAMOAOMAKJJCCANCPP
9086 DATAGA